ANNO 


II 


NUMERO 


6 


### 

### 

### 

##### 

######## 

##### 

##### 

##### 

### 

### 

### 

### 

### 

### 

### 

### ### ### 

### 

### 


### 

### 

### 

### 

### 

### 

### 

### 


######## 
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BOLLETTINO DEL CLUB UTENTI MICRO DESIGN 
GIUGNO 1982 


Dobbiamo ringraziare tutti i nostri soci degli 
incoraggiamenti che abbiamo avuto in occasione del "censimento". 

Abbiamo avuto anche molti preziosi consigli che terremo in 
grande considerazione per poter sempre migliorare la qualità’ di 
quella che vi af-friamo. 

D’ altra parte dobbiamo pero’ tirare le orecchie a quei soci 
che hanno fatto programmi interessantissimi e modifiche hardware 
utilissime ma che non ce le hanno comunicate. Secondo noi lo 
spirito di collaborazione e’ importantissimo per l’esistenza del 
club utenti MICRO design, infatti le applicazioni, sia di 
software che di hardware, sono talmente ampie da non poter 
assolutamente essere coperte da un singolo individuo. E’ perciò’ 
necessaria una stretta collaborazione per poter raggiungere 
obiettivi piu’ ambiziosi senza dover ripetere lavori che magari 
altri hanno già’ effettuata. 

Pertanto vi invitiamo a sottoporci ogni vostro lavoro che 
pensiate possa essere utile ad altri soci o che possa stimolarli 
a realizzare soluzioni migliori. 

A tal proposito desideriamo ringraziare il sig. Fabrizio 
Aversa di Roma che ci ha inviato una serie di programmi per 
utilizzare il grafico con il BASIC 3. 

Prendendo lo spunto da tali programmi un nostro 
collaboratore ha realizzato una routine che permette di accendere 
e spegnere i singoli punti del grafico sia sulla vecchia scheda 
32 x 16 che sulla nuova scheda 80 24. 

Questo e’ un ottimo esempio di come la collaborazione dei 
nostri lettori può’ portare alla realizzazione di programmi 
veramente utili e interessanti. 

Aspettiamo quindi le vostre lettere con programmi, progetti 
e quanto altro possa riguardare il nostro microcomputer, 
pubblicheremo i piu’ interessanti e ricompenseremo gli autori dei 
1avori. 

Se invece avete realizzato qualcosa che ritenete 
commercialmente valido inviatecene una breve? descrizione, in 
seguito valuteremo insieme 1’ opportunità’ e le condizioni di 
presentazione sul bollettino. 


SUBROUTINE DI GESTIONE DEL PUNTATORE VIDEO. 

In molti casi può’ essere comodo posizionare il cursore (che 
nella scheda interfaccia video 32 16 e’ rappresentato da un 
quadratino mentre nella nuova scheda SO >: 24 e’ 1 ampegqi ante) in 
zone diverse dello schermo, ad esempio facendolo ritornare verso 
l’alto senza provocare lo "scroll" cioè’ lo spostamento di tutte 
le linee del video verso l’alto. 

A tal proposito i nostri tecnici usano, da tempo, una utile 
subroutine scritta in BASIC 3 che consente di posizionare il 
cursore in una qualsiasi locazione del video indicando 
semplicemente la linea e la colonna in cui si desidera spostare 
il cursore,. 

La subroutine deve essere chiamata ponendo prima nelle 
variabili HT e VT rispettivamente i valori della colonna e della 
riga che si vuole occupare con il cursore. 

Occorre tenere presente che le colonne vengono contate a 
partire da sinistra, mentre le righe vengono contate a partire 
dall’alto., Cioè’ per posizionare il cursore nell’angolo in alto a 
sinistra del video occorrerà’ assegnare: 


e quindi chiamare 


HT=1:VT= 1 


GQSUB 60000 

Di seguito riportiamo le liste della subroutine che potrete 
inserire nei vostri programmi, la prima si riferisce alla video 
da 32 x 16, mentre la seconda deve essere utilizzata da color 
che possiedono la nostra interfaccia programmati 1 e da 80 y, 2 
caratteri„ 

60000 PU=PEEK («(48) +PEEK (S(49> *2"'8-«<EC00: P0KE PU+8<EC00, S<20 
60010 VL=INT(PU/32):0L=INT(PU-VL*32> 

60020 IF HT>0 THEN 0L=(HT-1)M0D 32 
60030 IF VT>0 THEN VL=(VT-1)M0D 16 
60040 ZZ*=HEX* < VL*32+0L+8<EC00) 

60050 P0KE VAL ( "8t"+ZZ$> , 8<81 

60060 P0KE 8<48, VAL < "8<"+RIGHT* <ZZ$, 2) ) : 

P0KE 8<49, VAL ( "8< " +LEFT* < Z Z*, 2 > ) 

60070 RETURN 


60000 PU=PEEK (8<48) +PEEK <8c49> *2"'8-8<E800 
60010 VL=INT(PU/80):0L=INT(PU-VL*80) 

60020 IF HT>0 THEN 0L=(HT-1)M0D 80 
60030 IF VT>0 THEN VL=(VT-1>M0D 24 
60040 ZZ$=HEX* < VL*80+0L+8<E800) 

60050 0UT 8<E8, 15: 0UT 8cE9, VAL < " 8< " +RIGHT $ < ZZ$,2) ) : 

□UT 8<E8, 14s 0UT 8<E9, VAL ( "8< ,, +LEFT$ ( ZZ$, 2) ) -8<E8 
60060 P0KE 8<48, VAL ( ,, 8< ,, +RIGHT« (ZZ*, 2) ) : 

P0KE 8<49, VAL ( "8<"+LEFT$ ( ZZ$, 2) ) 

60070 RETURN 


o 



USO DEL SEMIGRAFICO CON IL BASIC 3 


Il BASIC 3 e’ realizzato per essere utilizzato su computer 
CR/M compatibili e, come ha potuto sperimentare chi lo possiede, 
e' uno dei piu’ potenti e versatili disponibili sul mercato. 

Pero’ molti soci avevano scritto programmi che utilizzavano 
le istruzioni SET e RESET (ACCENDI e SPEGNI) del famoso Basic 1.0 
itali a. inglese sviluppato nei nostri laboratori, pertanto 
abbiamo preso lo spunto da uno dei nostri soci: il signor 
Fabrizio Aversa di Roma che ci ha gentilmente inviato una serie 
di programmi matematici che utilizzano il semigrafico per 
disegnare grafici di funzione. 

Pur essendo tali programmi interessantissimi per chi si 
occupa di elaborazioni matematiche molto complesse, abbiamo 
preferito riscrivere in modo piu’ generale la subroutine che 
gestisce il semigrafica e farla leggere automaticamente all’ 
inizio del programma che la deve utilizzare» 

Vi presentiamo tale programma che servirà’ anche da esempio 
di come sia possibile utilizzare v*ha subroutine in linguaggio 
assembler richiamata da BASIC 3. ,>■ 


La prima cosa da fare, se si vuole utilizzare una subroutine 
in. linguaggio assembler da BASIC 3 consiste nello scriverla 
utilizzando il linguaggio assembler che si ha a disposizione. Nel 
nostro caso abbiamo utilizzato I’ M80 della Microsoft per 
sfruttare pienamente le istruzioni Z80. Infatti in tale programma 
non ci sono salti assoluti ed e’ pertanto possibile posizionare 
la subroutine in qualsiasi area di memoria. 

Chi non possiede 1’ M80 può’ battere il programma in 
linguaggio macchina con il DDT facendolo partire dall’ indirizzo 
lOOh e salvandolo poi con l’istruzione: 

BAVE 1 SET.COM 


Quando si ha il file SET.COM su disco si può’ scrivere il 
programma BASIC che si preoccuperà’ di caricarla da disco in 
memoria. A tal proposito vi ricordiamo che occorre riservare una 
parte della memoria per contenere il programma SET e ciò’ può’ 
essere fatto rispondendo alla domanda che il Basic pone 
all’inizio: Highest Memory? 

anziché’ con un return con un indirizzo. 

Il modo piu’ semplice consiste nel tener presente la tabella 
che vi forniamo togliendo al valore indicato la dimensione del 
vostro programma. 


CP./M da 28K 
32K 
36K 
40K 
44K 
48K 
52K 
56K 


Highest memorv? &5C00 - ‘(dimensioni > 

&6C00 

&7COO 

&8C00 

&9C00 

&AC00 

&BC00 

&GC00 


Ad esempio, avendo un CF'/M da 48K e una subroutine lunga 79IH come 
la nostra, occorre rispondere almeno AC00 -• 79 (i numeri sono in 
esadecimal e). Per sicurezza e’ meglio riservare un po’ di spazio 
in piu’ in modo da averne a disposizione per eventuali modifiche. 

Vi consigliamo quindi, per facilitarvi i conti, di 
rispondere &ABOO dove & significa esadecimale e AB00 deriva dalla 
sottrazione AC00-100. (abbiamo riservato 100 anziché’ 79 per 
sicurezza.) 



ROUTINE IN BASIC PER CARICARE IN MEMORIA IL SET.COM 


Anzitutto occorre assegnare alla variabile FC 
corrispondente all’indirizzo di memoria che abbiamo 
(vedi pag. precedente). Quindi all’inizio del 
seriveremos 


il valore 
riservato 
programma 


10 FC-LAB00 

e,, di seguito la chiamata alla subroutine 
20 GQSUB 55000 

da questo punto in avanti potremo scrivere il nostro programma 
che utilizzerà’ le routine grafiche. In fondo aggiungeremo 
naturalmente la subroutine: 

55000 OPEN #5, " I " , "SET,. COMI" 

55010 F0R 1=0 TQ «<79 
55020 P0KE FC+I,BYTE <#5> 

55030 NEXT I 
55040 CL0SE #5 
55050 RETURN 


notate che dopo aver esegui to la subroutine avremo in memoria i .1 
contenuto del file SET.COM a partire dall’indirizzo AB00. 

Pertanto nel nostro programma (cioè’ dalla riga 21 in 
avanti) potremo chiamare la routine grafica con l’istruzione: 

CALI. FC, 1, SX, SY per accendere il punto <SX,SY) 

oppure 

CALL FC,0,SX,SY per spegnere il punto (SX,SY) 


ove lai variabile FC e’ già’ stata assegnata alla riga 
successivo parametro deve essere 1 per accendere oppure 
spegnere il punto, SX e SY sono le coordinate del punto, 
conto che, per comodità’, abbiamo fissato l’origine sullo 
in basso a sinistra punto (0,0). 


10, il 
0 per 
tenendo 
schermo 


Vi diamo ora 
l’accensione a 
già’ spiegato, 
mediante il DDT 


la lista della routine assembler che 
lo spegnimento del punto e che, come vi 
dovrete registrare su disco sotto il nome 
a parti re•dal 1’indiri zzo 100H. 


esegue 
abbi amo 
SET.COM 


OlOO 

DI 

7B 

D6 

48 

30 

FC 

C6 

48 

16 

FF 

14 

D6 

03 

30 

FB 

C6 

Olio 

03 

14 

5F 

E1 

7D 

D6 

AO 

30 

FC 

C6 

AO 

26 

FF 

24 

D6 

02 

0120 

30 

FB 

C6 

02 

6F 

AF 

E5 

7A 

21 

80 

EF 

01 

50 

OO 

ED 

42 

0130 

3D 

20 

FB 

E3 

4C 

E3 

09 

E3 

AF 

BD 

E 1 

06 

OO 

28 

12 

83 

0140 

20 

04 

CB 

CO 

18 

1B 

3D 

20 

04 

CB 

DO 

18 

14 

CB 

EO 

18 

0150 

IO 

83 

20 

04 

CB 

C8 

18 

09 

3D 

20 

04 

CB 

D8 

18 

02 

CB 

0160 

E8 

7E 

87 

30 

03 

87 

30 

03 

3E 

80 

77 

7E 

4F 

AF 

DI 

BB 

0170 

78 

28 

03 

B1 

18 

02 

2F 

Al 

77 

C9 

00 

00 

00 

OO 

00 

OO 
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.2 80 




41 •> 


5 per 

vi deo 

80x24 o 

32 x 16 

0048 


GL IN 

equ 

48h ; 

30h 

00A0 


GCOL 

equ 

OaOh ; 

4 Oh 

0050 


COL 

equ 

50h -, 

20h 

EF80 


VEND 

equ 

0e-f80h ; 

OeeOOh 

0000 


org 

01 OOh 





5 Subroutine per BASIC 3 con video 80x24 



; LINEA 

schermo 

nel reg.D 




5 linea 

carattere (0,1,2) 

nel reg.E 

0100 

DI 

start : 

pop 

de 


0101 

7B 


Id 



0102 

D6 48 

•f c : 

sub 

GL IN 


0104 

30 FC 


jr 

nc, f c 


0106 

C6 48 


add 

a, GL IN 


0108 

16 FF 


ld 

d, 0-f -fh 


010 A 

14 

■f b ; 

i nc 

d 


010B 

D6 03 


sub 

3 


01 OD 

30 FB 


jr 

nc, -f b 


010F 

06 03 


add 

a 9 3 


Olii 

14 


i nc 

d 


0112 

5F 


ld 

e, a 




; COLONNA schermo nel reg. 

H 



5 colonna carattere <0,1) 

reg. L 

0113 

E1 

a 3 : 

pop 

hi 


0114 

7D 


ld 

a, 1 


0115 

D6 AO 

■f c 1 : 

sub 

GCOL 


0117 

30 FC 


jr 

nc,fcl 


01 19 

06 AO 


add 

a,GCOL 


011B 

26 FF 


ld 

h, 0-f-f h 


011D 

■ 24 

•fbl ! 

ine 

h 


01 1E 

D6 02 


sub 

n 

4L 


0120 

30 FB 


jr 

nc-f b 1 


0122 

06 02 


add 

a, 2 


0124 

6F 


ld 

1 , a 




; calcolo locaz 

ione video 

RAM 

0125 

0125 

AF 

b 1 : 

xor 

a 


0126 

E5 


push 

hi 


0127 

7 A 


ld 

a, d 


0128 

21 EF80 


ld 

hi,VEND 


012B 

01 0050 


ld 

bc,COL 


012E 

ED 42 

b2s 

sbe 

hi , bc 


0130 

3D 


dee 

a 


0131 

20 FB 


jr 

nz,b2 


- 0133 

E 3 


ex 

<sp),hi 


0134 

40 


ld 

c, h 


0135 

E 3 


ex 

(sp ) ,hi 


~ 0136 

09 


add 

hi , bc 


0137 

E3 


ex 

(sp),hi 


0138 

AF 


xor 

a 


0139 

BD 


cp 

1 


013A 

E1 


pop 

hi 


013B 

06 00 


ld 

b, 0 


013D 

28 12 


jr 

z,b4 
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013F 

83 


add 

a, e 

0140 

20 04 


jr 

n z , c 1 

0142 

CB CO 


set 

0, b 

0144 

18 1B 


jr 

con 

0146 

3B 

c 1 : 

dee 

a 

0147 

20 04 


jr 

nz , c2 

0149 

CB DO 


set 

2, b 

014B 

18 14 


jr 

con 

014D 

CB EO 

i-n. 

set 

4, b 

014F 

18 10 


jr 

con 

0151 

83 

b4 : 

add 

«3 v G 

0152 

20 04 


jr 

nz,c3 

0154 

CB C8 


set 

1 n b 

0156 

18 09 


j r 

con 

0158 

3D 

c3: 

dee 

a 

0159 

20 04 


jr 

n z j c:4 

015B 

CB D8 


set 

3, b 

015D 

18 02 


jr 

con 

015F 

CB E8 

c4 : 

set 

■—* ■! b 

0161 

7E 

con : 

1 d 

a, (hi ) 

0162 

87 


add 


0163 

30 03 


jr 

nc,dl 

0165 

87 


add 

3 ^ 3 

0166 

30 03 


jr 

nc, d2 

0168 

3 E 80 

di: 

ld 

a ? SOh 

016 A 

77 


ld 

(hi ) , a 

016B 

7E 

d2; 

ld 

a, (hi ) 

0160 . 

4F 


ld 

c:, a 

016D 

AF 


>;or 

a 

016E 

DI 


pop 

de 

016F 

BB 


cp 

e 

0170 

78 


ld 

a n b 

0171 

28 03 


jr 

z, res 

0173 

B1 


or 

c 

0174 

18 02 


jr 

car 

0176 

2F 

resi: 

cpl 


0177 

Al 


and 

c 

0178 

77 

car s 

ld 

(hi ) , a 

0179 

C9 


ret 



end 
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Macros: 


Symbol ss 
A3 

0113 

B1 

0125 

B2 

012E 

B4 

0151 

CI 

0146 

C2 

014D 

C3 

0158 

C4 

015F 

CAR 

0178 

COL 

0050 

CON 

0161 

DI 

0168 

D2 

016B 

FB 

01OA 

FBI 

011D 

FC 

0102 

FC1 

0115 

GCOL. 

00 AO 

GL IN 

0048 

RES 

0176 

START 

0100 

VEND 

EF80 






No Fatai error(s) 



Per dimostrarvi ancora piu' chiaramente l’uso della routine che 
vi abbiamo illustrato, vi -forniamo un esempio tratto da quelli 
inviatici dal sig» Fabrizio Aversa,. Il seguente programma disegna 
il grafico di una funzione che deve essere assegnata al.la 
variabile F nella riga 80» 


*#**#. ###*########*####*###*### 
* VERSIONE PER VIDEO 80 >: 24 * 
il***************************** 


10 FC=&AB00:GQSUB55000 

20 ?CHR$ <12)SPC <5)"GRAFICO FUNZIONI": 

?"PIot della Funzione alla RIGA 80" 

30 INTERRUPT1:INPUT"INTERVALLO ASSE X 

LIMITE INFERIORE";IP$:GQSUB50000s X1 = IP: 

INPUT"LIMITE SUPERIORE";IP$:GGSUB50000: X2=IP 
40 INPUT"INTERVALLO ASSE Y 

LIMITE INFERIORE"; IP*:G0SUB50000:Y1 = IP: 

INPUT"LIMITE SUPERIORE"; IP*:GOSUBSOOOO:Y2=IP 
42 INTERRUPTO 
44 0NERR0RG0T02000 
50 DX= <X2-X1)/160 
60 IY=(Y2-Y1)772 
70 DEFFNF(X) 

75 ONERRORGOT02000 

80 F=SIN(X)/X 

81 FNEND 

82 F'RINT CHR* (12) 

83 IF X1>0THEN90 
85 SX=-X1/DX+1 

87 FQRSY=iT0160: CALL FC-, 1, SX , SY: NEXTSY 
90 IFY1>0THEN100 
92 SY=~Y1/IY+L 

94 F0RSX=lTQ160s CALL FC,1,SX,SYsNEXTSX 
100 F0RSX=1T0160 

105 IFBYTEF'OLL ( 0 ) =-1THENGOTO1000 

106 0“FNF(X1+5X*DX> 

110 SY=1/IY* (F-YD+l. 

115 IFSY<OORSY>72THENNEXTSX 
120 CALL FC,1,SX,SY 
130 NEXTSX 

1000 IFBYTE$(0)=" "THEN 20 
1010 ?CHR*<12): END 

2000 IFERL=80THENSX=SX+1:X=X+DX s RESUMENEXT 

2010 P0KE&E84F, &C5 : GOTO 1000 

50000 IFLEFT$(IP* *1)="-"THEN50030 

50010 I FL.EFT$ ( I F'f;, 2 > < > " PI " THEN I F'=VAL ( I F'$ ) : RETURN 

50020 IF : ‘=PI /VAL <RIGHT$ < IF'$, <LEN(IP$)~3) ) ) ; RETURN 

50030 I FLEFTit ( I P$, 3 ) < > " -PI " THEN I P=VAL ( I F'$ ) s RETURN 

50040 IF--PI / VAL. < RI GHT* ( IF'*, ( LEN ( IP* ) -4 ) ) ) ; RETURN 

55000 OPEN #5,"I", "set.com" 

55010 FOR 1=0 TO ?<79 
55020 POKE FC+I,BYTE(#5) 

55030 NEXT I 
55040 CLOSE #5 
55050 RETURN 



************************************ 


Tagliando di iscrizione al club utenti 


* 

* 

# Cognome....................... Nome. 

* 

* Via.. 


* 

. * 

.* 

* 

. * 

* * 

* C.A.P.........Citta'.......... * 

* * 

* Provincia.Telefono./___ * 

* * 

* Configurazione micro... . * 

* . * 

* . * 

************* *********************** ******* «He**** ************ #*** 


MITTENTE 

MICRO design 
Via Rostan 1 
16155 Genova 


STAMPE 



+ 
















